home *** CD-ROM | disk | FTP | other *** search
- regc(0, "TFACTOR")
-
- pshader("
-
- ps_1_1
-
- def c1, 0, 0, 0.25, 0.75 ;noise scale
- def c2, 0.5, 0.5, 0.5, 1 ;mono params
- def c3, 0.62, 0.5, 0.3, 0.2 ;sephia params
-
-
- tex t0 ;image
- tex t1 ;frame
- tex t2 ;scratches
- tex t3 ;grain
-
- dp3_sat r0.rgb, t0, c2 ;make mono
- +mul r0.a, t1.b, c0.a ;blink * frame
-
- lrp r0.rgb, t3.a, r0, c3 ;grain
- +mul t1.a, t3.b, r0.a
-
- mul r1, c3, c3.a ;temporary ambient
-
- mad_sat r0, r0, c3, r1 ;color to sephia, add ambient
-
- mul r0, r0, t1.a
-
- lrp r0, t2.a, t2, r0 ;scratch
-
- ")
-
-